home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / biz / dopus / DOpusCFG.lha / DOpusCFG_020 / rexx / MakeRolloverFile < prev   
Encoding:
Text File  |  2000-12-03  |  1.3 KB  |  45 lines
  1. /* Make a rollover file, then updated a script file to reproduce it
  2.    Edited version by M. Rohles $VER: 1.1 (26.03.2000)
  3.    Original by Kirk Strauser. (AMINET:disk/misc/RolloverTools.lha)
  4. */
  5.  
  6. /*               Program-name / Found at            | Version | Configured Path+Name / misc
  7.                  ---------------------------------------------------------------------------
  8.    Requires:     PFS2/3, Rollover-Commands          | 1.2     | All commands should be copied
  9.                                                               | into C: Dir during PFS-Install
  10. */
  11.  
  12. if arg()=0 then do
  13.    say 'USAGE: MakeRolloverFile NAME/A,SIZE/N/A'
  14.    exit 10
  15.    end
  16.  
  17. parse arg fname size
  18.  
  19. address command
  20.  
  21. if exists(fname) then 'RX MakeIntoRollover 'fname size
  22. else 'MakeRollover 'fname size
  23.  
  24. 'List 'fname' >T:MakeRolloverFile.temp LFORMAT="%f%n"'
  25.  
  26. call open in,'T:MakeRolloverFile.temp','r'
  27. fullname=readln(in)
  28. call close in
  29. 'Delete >NIL: T:MakeRolloverFile.temp'
  30. say fullname
  31.  
  32. if ~open('out','S:RemakeRollovers','a') then do
  33.    call open 'out','S:RemakeRollovers','w'
  34.    end
  35. a='rx MakeIntoRollover "'fullname'"'size
  36. b='echo "Working on 'fullname' ('size' blocks, 'size*512' bytes )..."'
  37. j=writeln('out',b)
  38. j=writeln('out',a)
  39. call close 'out'
  40. 'Protect S:RemakeRollovers +S'
  41. say 'Finished.  To restore your logfiles after a backup, type:'
  42. say ' '
  43. say ' RemakeRollovers'
  44. say ' '
  45.